object dmDadosProdutos: TdmDadosProdutos
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 355
  Top = 165
  Height = 407
  Width = 747
  object sqlTblpro: TSQLDataSet
    CommandText = 'select *'#13#10'from tblpro'
    DbxCommandType = 'Dbx.SQL'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = dmConexao.SQLConnection
    Left = 304
    Top = 24
  end
  object dspTblpro: TDataSetProvider
    DataSet = sqlTblpro
    UpdateMode = upWhereKeyOnly
    OnUpdateError = dspTblproUpdateError
    Left = 304
    Top = 80
  end
  object cdsTblpro: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspTblpro'
    AfterInsert = cdsTblproAfterInsert
    Left = 304
    Top = 136
    object cdsTblproprocod: TIntegerField
      FieldName = 'procod'
      Required = True
      OnValidate = cdsTblproprocodValidate
    end
    object cdsTblproprodescr: TStringField
      FieldName = 'prodescr'
      Required = True
      OnValidate = cdsTblproprodescrValidate
      Size = 50
    end
    object cdsTblprofapcod: TIntegerField
      FieldName = 'fapcod'
      LookupDataSet = sqlFamilia
      LookupKeyFields = 'fapcod'
      LookupResultField = 'fapdescr'
      Required = True
    end
    object cdsTblproLookupFapdescr: TStringField
      FieldKind = fkLookup
      FieldName = 'LookupFapdescr'
      LookupDataSet = sqlFamilia
      LookupKeyFields = 'fapcod'
      LookupResultField = 'fapdescr'
      KeyFields = 'fapcod'
      Size = 45
      Lookup = True
    end
    object cdsTblprounduni: TStringField
      FieldName = 'unduni'
      LookupDataSet = cdsTblund
      LookupKeyFields = 'unduni'
      LookupResultField = 'unddescr'
      Required = True
      Size = 2
    end
    object cdsTblproprocodbarra: TStringField
      FieldName = 'procodbarra'
      Required = True
      OnValidate = cdsTblproprocodbarraValidate
      Size = 13
    end
    object cdsTblproproaliqicms: TFMTBCDField
      FieldName = 'proaliqicms'
      Required = True
      OnValidate = cdsTblproproaliqicmsValidate
      DisplayFormat = '#,##0.00'
      Precision = 14
      Size = 2
    end
    object cdsTblproprovlunit: TFMTBCDField
      FieldName = 'provlunit'
      Required = True
      OnValidate = cdsTblproprovlunitValidate
      DisplayFormat = '#,##0.00'
      Precision = 14
      Size = 2
    end
    object cdsTblproprovlprven: TFMTBCDField
      FieldName = 'provlprven'
      Required = True
      OnValidate = cdsTblproprovlprvenValidate
      DisplayFormat = '#,##0.00'
      Precision = 14
      Size = 2
    end
    object cdsTblproproqtdeest: TIntegerField
      FieldName = 'proqtdeest'
      Required = True
      DisplayFormat = '#,###,##0'
    end
    object cdsTblproproncm: TIntegerField
      FieldName = 'proncm'
      Required = True
    end
  end
  object dsTblpro: TDataSource
    DataSet = cdsTblpro
    Left = 304
    Top = 192
  end
  object sqlTblUnd: TSQLDataSet
    SchemaName = 'root'
    CommandText = 'select *'#13#10'from tblund'
    DbxCommandType = 'Dbx.SQL'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = dmConexao.SQLConnection
    Left = 48
    Top = 24
  end
  object dspTblund: TDataSetProvider
    DataSet = sqlTblUnd
    OnUpdateError = dspTblundUpdateError
    Left = 48
    Top = 80
  end
  object cdsTblund: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspTblund'
    Left = 48
    Top = 136
    object cdsTblundunduni: TStringField
      FieldName = 'unduni'
      Required = True
      Size = 2
    end
    object cdsTblundunddescr: TStringField
      FieldName = 'unddescr'
      Required = True
    end
  end
  object dsTblund: TDataSource
    DataSet = cdsTblund
    Left = 48
    Top = 192
  end
  object sqlExisteProcod: TSQLDataSet
    SchemaName = 'root'
    CommandText = 'select procod'#13#10'from tblpro'#13#10'where procod = :procod'
    DbxCommandType = 'Dbx.SQL'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'procod'
        ParamType = ptInput
      end>
    SQLConnection = dmConexao.SQLConnection
    Left = 648
    Top = 24
    object sqlExisteProcodprocod: TIntegerField
      FieldName = 'procod'
      Required = True
    end
  end
  object sqlExisteProcodbarra: TSQLDataSet
    SchemaName = 'root'
    CommandText = 'select procod'#13#10'from tblpro'#13#10'where procodbarra = :procodbarra'
    DbxCommandType = 'Dbx.SQL'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'procodbarra'
        ParamType = ptInput
      end>
    SQLConnection = dmConexao.SQLConnection
    Left = 648
    Top = 72
    object sqlExisteProcodbarraprocod: TIntegerField
      FieldName = 'procod'
      Required = True
    end
  end
  object sqlTblfap: TSQLDataSet
    SchemaName = 'root'
    CommandText = 'select *'#13#10'from tblfap'#13#10'order by fapdescr'
    DbxCommandType = 'Dbx.SQL'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = dmConexao.SQLConnection
    Left = 144
    Top = 24
  end
  object dspTblfap: TDataSetProvider
    DataSet = sqlTblfap
    OnUpdateError = dspTblfapUpdateError
    Left = 144
    Top = 80
  end
  object cdsTblfap: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspTblfap'
    OnNewRecord = cdsTblfapNewRecord
    Left = 144
    Top = 136
    object cdsTblfapfapcod: TIntegerField
      FieldName = 'fapcod'
      Required = True
    end
    object cdsTblfapfapdescr: TStringField
      FieldName = 'fapdescr'
      Required = True
      OnValidate = cdsTblfapfapdescrValidate
      Size = 45
    end
  end
  object dsTblfap: TDataSource
    DataSet = cdsTblfap
    Left = 144
    Top = 192
  end
  object sqlFamilia: TSQLDataSet
    SchemaName = 'root'
    CommandText = 'select * from tblfap'
    DbxCommandType = 'Dbx.SQL'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = dmConexao.SQLConnection
    Left = 376
    Top = 136
    object sqlFamiliafapcod: TIntegerField
      FieldName = 'fapcod'
      Required = True
    end
    object sqlFamiliafapdescr: TStringField
      FieldName = 'fapdescr'
      Required = True
      Size = 45
    end
  end
  object sqlTblnam: TSQLDataSet
    CommandText = 'select * from tblnam'
    DbxCommandType = 'Dbx.SQL'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = dmConexao.SQLConnection
    Left = 496
    Top = 24
    object sqlTblnamnamcod: TIntegerField
      FieldName = 'namcod'
      Required = True
    end
    object sqlTblnamnamexce: TStringField
      FieldName = 'namexce'
      Size = 3
    end
    object sqlTblnamnamtip: TIntegerField
      FieldName = 'namtip'
      Required = True
    end
    object sqlTblnamnamaliqnac: TFMTBCDField
      FieldName = 'namaliqnac'
      Required = True
      Precision = 7
      Size = 2
    end
    object sqlTblnamnamaliqimpor: TFMTBCDField
      FieldName = 'namaliqimpor'
      Required = True
      Precision = 7
      Size = 2
    end
  end
  object dspTblnam: TDataSetProvider
    DataSet = sqlTblnam
    OnUpdateError = dspTblnamUpdateError
    Left = 496
    Top = 80
  end
  object cdsTblnam: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspTblnam'
    Left = 496
    Top = 136
    object cdsTblnamnamcod: TIntegerField
      FieldName = 'namcod'
      Required = True
    end
    object cdsTblnamnamexce: TStringField
      FieldName = 'namexce'
      Size = 3
    end
    object cdsTblnamnamtip: TIntegerField
      FieldName = 'namtip'
      Required = True
    end
    object cdsTblnamnamaliqnac: TFMTBCDField
      FieldName = 'namaliqnac'
      Required = True
      Precision = 7
      Size = 2
    end
    object cdsTblnamnamaliqimpor: TFMTBCDField
      FieldName = 'namaliqimpor'
      Required = True
      Precision = 7
      Size = 2
    end
  end
  object sqlDeleteTblnam: TSQLDataSet
    SchemaName = 'root'
    CommandText = 'delete from tblnam'
    DbxCommandType = 'Dbx.SQL'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = dmConexao.SQLConnection
    Left = 648
    Top = 120
  end
end
